<script>on mouseUp--this is the new buttonglobal a,b,x,yplay boing c5put "Sorting Reference Cards . . . Please Wait" into messageput empty into card field 1put empty into card field 2set the cursor to 4sort text by field 2play boing d4put "Getting Keywords . . . Please Wait" into messageput the number of cards into xput the number of cards into ydivide x by 2put trunc(x) into asubtract a from yrepeat for ago nextget field 2put it & return into last line of card field 1 of card 1end repeatrepeat for ygo nextget field 2put it & return into last line of card field 2 of card 1end repeatgo card 1put "Compacting Stack . . . Please Wait" into messagedoMenu "Compact Stack"put "Done" into messagewait 2 secondshide messageend mouseUp</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>76</left>
<top>48</top>
<right>178</right>
<bottom>69</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Update</name>
<script>on mouseUpchoose button toolget the loc of card button 1click at itdoMenu "Copy Button"go card 1 of "Programmer's Notebook"get the loc of card button "Re-Index"click at itdoMenu "Clear Button"doMenu "Paste Button"choose browse toolshow msgput "There ya go…" into msgwait 2 secondshide msgend mouseUp</script>